home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / iris.lha / Iris / MoveMsg.irx < prev    next >
Encoding:
Text File  |  1998-04-04  |  1.4 KB  |  81 lines
  1. /* REXX script to transfer message(s) to another folder */
  2. /* $VER: MoveMsg.irx V1.1 (supplied with Iris V1.3)     */
  3.  
  4. address IRIS
  5.  
  6. options results
  7. options failat 11
  8.  
  9. 'LOCKGUI'
  10.  
  11. signal on break_c
  12.  
  13. 'GETNUMSELECTED'
  14. n = result
  15. if rc > 0 then do
  16.     'ASKCHOICE "Transfer message(s)" "This script needs at*Nleast V1.3 of Iris." "**_OK"'
  17.     signal break_c
  18. end
  19. else nop
  20. if n = 0 then do
  21.     'ASKCHOICE "Transfer message(s)" "Select at least one*Nmessage first!" "**_OK"'
  22.     signal break_c
  23. end
  24. else nop
  25.  
  26. 'ASKFOLDER'
  27. if rc ~= 0 then do
  28.     signal break_c
  29. end
  30. else nop
  31. dest = result
  32.  
  33. 'GETFOLDER'
  34.  
  35. if result = dest then do
  36.     'ASKCHOICE "Transfer message(s)" "Impossible action:*NSame folder selected!" "**_OK"'
  37.     signal break_c
  38. end
  39. else nop
  40.  
  41. i = 0
  42. err = ''
  43. 'GETNUMSELECTED'
  44. n = result
  45. if rc > 0 then do
  46.     'ASKCHOICE "Transfer message(s)" "This script needs at*Nleast V1.3 of Iris." "**_OK"'
  47.     signal break_c
  48. end
  49. else nop
  50. if n = 0 then do
  51.     'ASKCHOICE "Transfer message(s)" "Did you click on the listview???" "**_OK"'
  52. end
  53. else nop
  54. do i=0 to n-1
  55.     'MESSAGEFILE' i
  56.     msg = result
  57.     if rc > 0 then do
  58.         err = 'Did you click on the listview???'
  59.         leave i
  60.     end
  61.     else nop
  62.     'READMESSAGE "'||msg||'" 0 TO "'||dest||'"'
  63.     if rc > 0 then do
  64.         err = 'The READMESSAGE command failed.'
  65.         leave i
  66.     end
  67.     else nop
  68. end
  69. if err ~= '' then do
  70.     'ASKCHOICE "Transfer message(s)" "'||err||'" "**_OK"'
  71. end
  72. else do
  73.     'DELETE'
  74. end
  75. signal break_c
  76. exit
  77.  
  78. break_c:
  79. 'UNLOCKGUI'
  80. exit
  81.